home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 October / 1989-10.d64 / boot maker (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  45 lines
  1. 100 rem copyright 1989 compute! publications, inc.  all rights reserved
  2. 105 poke53280,14:poke53281,6:poke646,14
  3. 110 print"[147]"tab(12)"copyright 1989":printtab(6)"compute! publications, inc."
  4. 120 printtab(9)"all rights reserved."
  5. 130 forj=4000to4113:readx
  6. 140 t=t+x:pokej,x
  7. 150 nextj
  8. 160 ift<>13861thenprint"error in data":stop
  9. 170 print""
  10. 180 printtab(14)"64 booter"
  11. 190 sys 4000
  12. 200 input"filename of program to boot";a$
  13. 210 n=872:gosub390:poke833,m
  14. 220 input"is it basic (y/n)";a$
  15. 230 if a$="n"then250
  16. 240 poke850,234:poke828,0:goto350
  17. 250 input"enter sys address";a
  18. 260 fori=1to4
  19. 270 a=a/16:x=int(a):y=a-x
  20. 280 ify>0theny=y*16:a=x
  21. 290 ifi=1thenv1=y
  22. 300 ifi=2thenv1=v1+16*y
  23. 310 ifi=3thenv2=y
  24. 320 ifi=4thenv2=v2+16*y
  25. 330 next
  26. 340 poke 851,v1:poke852,v2
  27. 350 input"name of the new boot program";a$
  28. 360 n=4113:gosub390:poke4085,m
  29. 370 sys 4075
  30. 380 end
  31. 390 m=len(a$)
  32. 400 fori=1tom
  33. 410 y$=left$(a$,i)
  34. 420 x$=right$(y$,1)
  35. 430 b=asc(x$)
  36. 440 poken+i,b
  37. 450 next
  38. 460 return
  39. 470 data 169,52,141,44,3,169,3,141,45,3,160,54,185,181,15,153,51,3,136,208
  40. 480 data 247,96,32,138,255,169,2,162,8,160,255,32,186,255,169,0,160,3,162
  41. 490 data 105,32,189,255,169,0,162,1,160,8,32,213,255,76,162,0,189,101,3,157
  42. 500 data 119,2,232,224,4,208,245,169,4,133,198,96,82,85,78,13,169,2,162,8
  43. 510 data 160,255,32,186,255,169,3,160,16,162,18,32,189,255,169,44,133,254,169
  44. 520 data 3,133,255,169,254,162,128,160,3,32,216,255,32,138,255,96
  45.